home *** CD-ROM | disk | FTP | other *** search
/ USA Bestseller / USA BESTSELLER Vol 1-95 (Hepp-Computer)(1995).iso / e004 / update.btm < prev    next >
Text File  |  1994-10-14  |  2KB  |  68 lines
  1. @echo off
  2. if not exist %1 Abort SYNTAX: %@upper[%0] ListFileName
  3. SetLocal
  4. Timer /3 on
  5. Set Lines=0
  6. Set FileName=%@upper[%1]
  7. Set LogFile=c:\backup.out
  8. Echo %_Date %_Time > %LogFile
  9. For %Rec in (@%FileName%) gosub Exchange
  10. goto end
  11. :exchange
  12. set Lines=%@eval[%Lines + 1]
  13. if "%Rec" lt " " return
  14. Set Srce=%@word[0,%Rec]
  15. Set Dest=%@word[1,%Rec]
  16. set Mask=%@word[2,%Rec]
  17. set Optn=%@word[3,%Rec]
  18. if "%Optn" eq "APND" goto DirOK
  19. if isdir %Dest goto DirOK
  20. Beep 10 10
  21. Echo Directory %Dest does not exist
  22. call YesNo Y Create Directory
  23. iff "%Answer" eq "Y" then
  24.   md %Dest
  25.  else
  26.   Return
  27. endiff
  28. :DirOK
  29. Gosub %Optn
  30. return
  31. :EX
  32. echo Exchanging files to %@upper[%dest]
  33. copy /u /m %Srce%\%Mask% %dest%\ >> %LogFile
  34. attrib /q -a %Srce%\%Mask%
  35. echo Exchanging files to %@upper[%srce]
  36. copy /u %Dest%\%Mask% %Srce%\ >> %LogFile
  37. attrib /q -a %srce%\%Mask%
  38. return
  39. :UP
  40. echo Updating files to %@upper[%dest]
  41. copy /c /m %Srce%\%Mask% %dest%\ >> %LogFile
  42. attrib /q -a %Srce%\%Mask%
  43. echo Updating files to %@upper[%srce]
  44. copy /c %Dest%\%Mask% %Srce%\ >> %LogFile
  45. attrib /q -a %srce%\%Mask%
  46. return
  47. :BU
  48. Echo Backing up files from %@upper[%Srce] to %@upper[%Dest]
  49. copy /u /m %Srce%\%Mask% %Dest%\ >> %LogFile
  50. attrib /q -a %Srce%\%Mask%
  51. return
  52. :APND
  53. if not exist %Srce return
  54. type %Srce >> %Dest
  55. del %Srce
  56. return
  57. :end
  58. Timer /3 off
  59. Echo %Lines Lines Processed
  60. Echo removing -copied- messages
  61. copy %logfile mark.doc > nul
  62. find /i/v "file(s)" < mark.doc > %LogFile
  63. del mark.doc > nul
  64. call YesNo N View %LogFile
  65. If "%answer" eq "Y" list %LogFile
  66. endlocal
  67.  
  68.